home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / super q._setup (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  99 lines
  1. 10 rem **********************
  2. 20 rem * geos-super quality *
  3. 30 rem *  written in 1991   *
  4. 40 rem * by andre schmandt  *
  5. 50 rem **********************
  6. 60 :
  7. 70 poke53280,0:poke53281,0:dima$(12),a(12)
  8. 80 print"[147]*** [199][197][207][211] - [211]uper [209]uality ***":print"**** by [193]ndre' [211]chmandt ****"
  9. 90 print"[211]elbsttest...":b=49242:fori=0to46:s=0:forii=0to15:reada
  10. 100 ifa=>0thenpokeb+i*16+ii,a:s=s+a:nextii
  11. 110 reada:ifa<>sthene$=str$(1020+i*10):goto410
  12. 120 printtab(4)(46-i)"[157] [145]":nexti:s=0:i(1)=13:i(2)=7:i(3)=5:i(4)=15:fori=1to4:b$(i)=""
  13. 130 forii=1toi(i):reada:b$(i)=b$(i)+chr$(a):s=s+a:nextii,i
  14. 140 ifs<>3043thene$=" 1520/1530":goto410
  15. 150 print"[196]atas sind [207][203].":fori=0to23:poke49152+i,peek(49242+i):nexti
  16. 160 input"[199]eraeteadresse  4[157][157][157]";ga:input"[211]ekundaeradresse  0[157][157][157]";sa:poke49176,ga
  17. 170 poke49177,sa:b=49178:a$="[201]nitialiserung":b$="27 64":az=12:gosub350
  18. 180 a$="[205]icro-[214]orschub 1/216 [218]oll":b$="27 '3 1":gosub350
  19. 190 a$="[214]orschub 23/216 [218]oll":b$="27 '3 23":gosub350
  20. 200 a$="[199]rafikmodus (1920 [208]unkte)":b$="27 '* 3":gosub350
  21. 210 a$="[204]ine [198]eed":b$="10":gosub350:a$="[198]orm [198]eed":b$="12":az=1:gosub350
  22. 220 print:input"[218]eilen  94[157][157][157][157]";ze:print
  23. 230 pokeb-2,a(1):pokeb-1,80:pokeb,ze:fori=1to22:pokeb+i,0:next:fori=0to79:poke49986+i,0:nexti
  24. 240 print:print"[194]itte eine leere [196]iskette einlegen,":print"auf der ein einziger [212]reiber ist"
  25. 250 print:print"[212]aste druecken":poke198,0:wait198,1:geta$
  26. 260 open15,8,15:open8,8,8,"#":u=1:t=18:s=1:gosub420:p=24:gosub430:get#8,a$
  27. 270 close8:ifa$<>chr$(9)thenclose15:print"[203]ein [212]reiber an erster [211]telle der [196]isk!":end
  28. 280 open8,8,1,"swap file,s,w":fori=0to913:print#8,chr$(peek(49152+i));:nexti:close8
  29. 290 open8,8,8,"#":gosub420:p=35:gosub430:get#8,t$,s$:ifs$=""thens$=chr$(0)
  30. 300 p=3:gosub430:print#8,t$;s$;b$(1);chr$(160)chr$(160)chr$(160);:get#8,it$,is$,a$,a$
  31. 310 print#8,b$(2);:get#8,a$,a$:print#8,chr$(0);:ifis$=""thenis$=chr$(0)
  32. 320 u=2:gosub420:u=1:t=asc(it$):s=asc(is$):gosub420:p=77:gosub430
  33. 330 print#8,b$(1);chr$(32)chr$(32);b$(3);b$(4);chr$(0)chr$(0)chr$(0)chr$(0)chr$(0);
  34. 340 u=2:gosub420:close8:close15:end
  35. 350 print"[147][195]odes fuer "a$:print"z.[194].: "b$:print:print"[205]aximal"az"[195]odes !":print
  36. 360 print"[206]ach jeder [197]ingabe [210]eturn druecken":print:fori=1to12:a$(i)="":a(i)=0:next
  37. 370 fori=1toaz:inputa$(i):ifleft$(a$(i),1)="'"thena(i)=asc(mid$(a$(i),2,1)):goto390
  38. 380 a(i)=val(a$(i)):ifa$(i)=""then400
  39. 390 nexti
  40. 400 i=i-1:pokeb,i:b=b+1:forii=1toaz:pokeb,a(ii):b=b+1:nextii:return
  41. 410 print"[198]ehler in [218]eile"e$:end
  42. 420 print#15,"u"chr$(48+u)":"8;0;t;s:return
  43. 430 print#15,"b-p:"8;p:return
  44. 440 :
  45. 1000 rem *** mc-code fuer treiber ***
  46. 1010 :
  47. 1020 data96,234,234,76,198,121,76,25,122,76,251,121,76,16,122,96,1940
  48. 1030 data234,234,96,234,234,96,234,234,80,110,160,96,169,0,240,4,2455
  49. 1040 data160,224,169,1,72,152,72,173,24,121,32,177,255,104,13,25,1774
  50. 1050 data121,32,147,255,104,240,25,76,174,255,173,24,121,32,176,194,2149
  51. 1060 data76,92,194,24,169,8,101,8,133,8,176,2,208,2,230,9,1440
  52. 1070 data96,169,78,133,8,169,121,133,9,160,0,177,8,240,241,170,1912
  53. 1080 data160,1,177,8,32,168,255,200,202,208,247,96,32,148,121,160,2215
  54. 1090 data0,132,144,160,240,32,124,121,165,144,240,10,72,32,122,121,1859
  55. 1100 data32,95,194,104,170,96,32,116,121,169,26,32,173,121,32,174,1687
  56. 1110 data255,162,0,160,0,136,208,253,202,208,248,32,95,194,162,0,2315
  57. 1120 data96,32,148,121,32,116,121,173,91,121,32,168,255,32,174,255,1967
  58. 1130 data32,122,121,76,95,194,169,0,174,92,121,172,93,121,96,32,1710
  59. 1140 data148,121,32,116,121,165,3,133,9,165,2,133,8,32,84,122,1394
  60. 1150 data32,171,121,32,174,255,32,95,194,120,165,2,133,8,165,3,1702
  61. 1160 data133,9,160,79,162,0,152,72,160,7,177,8,157,66,124,32,1498
  62. 1170 data157,121,104,168,232,136,16,238,88,96,32,180,122,144,250,169,2253
  63. 1180 data39,32,173,121,169,0,32,109,122,32,171,121,169,52,32,173,1547
  64. 1190 data121,169,1,141,109,121,169,65,32,173,121,173,94,121,32,168,1810
  65. 1200 data255,173,95,121,32,168,255,166,2,134,8,166,3,134,9,162,1883
  66. 1210 data255,142,115,121,174,96,121,138,72,238,115,121,120,160,7,177,2172
  67. 1220 data8,162,7,106,126,97,121,202,16,249,136,16,242,88,32,5,1613
  68. 1230 data123,32,157,121,104,170,202,16,222,96,120,162,255,142,96,121,2139
  69. 1240 data162,79,160,7,177,8,240,3,142,96,121,136,16,246,32,157,1782
  70. 1250 data121,202,16,238,173,96,121,201,255,208,3,24,88,96,169,0,2011
  71. 1260 data133,8,133,9,169,24,141,159,121,169,79,56,237,96,121,141,1796
  72. 1270 data96,121,170,32,157,121,202,16,250,165,8,141,94,121,165,9,1868
  73. 1280 data141,95,121,169,8,141,159,121,56,88,96,162,6,142,110,121,1736
  74. 1290 data160,0,32,93,123,185,97,121,141,97,121,174,115,121,224,79,1883
  75. 1300 data208,8,169,0,141,98,121,76,85,123,165,9,72,165,8,72,1520
  76. 1310 data32,157,121,120,160,7,177,8,42,110,98,121,136,16,247,88,1640
  77. 1320 data104,133,8,104,133,9,174,115,121,62,66,124,62,66,124,232,1637
  78. 1330 data189,66,124,202,42,126,66,124,126,66,124,160,0,140,110,121,1786
  79. 1340 data76,93,123,185,97,121,141,105,121,141,107,121,140,111,121,200,2003
  80. 1350 data185,97,121,141,106,121,174,115,121,30,66,124,46,108,121,189,1865
  81. 1360 data66,124,10,46,108,121,14,105,121,46,108,121,14,106,121,46,1277
  82. 1370 data108,121,32,202,123,162,6,138,72,14,105,121,46,108,121,14,1493
  83. 1380 data106,121,46,108,121,32,202,123,104,170,202,16,234,173,112,121,1991
  84. 1390 data32,168,255,173,113,121,32,168,255,173,114,121,32,168,255,174,2354
  85. 1400 data110,121,172,111,121,200,202,140,111,121,142,110,121,16,148,96,2042
  86. 1410 data173,108,121,72,173,109,121,208,82,104,72,41,10,201,10,24,1629
  87. 1420 data208,20,104,72,41,4,201,4,240,11,104,72,41,1,201,1,1325
  88. 1430 data208,3,24,144,1,56,46,112,121,104,72,41,6,201,6,24,1169
  89. 1440 data208,12,104,72,41,9,201,9,208,3,24,144,1,56,46,114,1252
  90. 1450 data121,104,72,41,9,201,9,24,208,12,104,72,41,15,201,15,1249
  91. 1460 data208,3,24,144,1,56,46,113,121,104,96,104,41,3,201,3,1268
  92. 1470 data240,7,24,46,113,121,24,144,5,56,46,113,121,56,46,114,1276
  93. 1480 data121,173,107,121,141,112,121,96,-1,992
  94. 1490 :
  95. 1500 rem *** daten fuer info-block ***
  96. 1510 :
  97. 1520 data83,117,112,101,114,32,81,117,97,108,105,116,121,91,6,18,11,0,5,0
  98. 1530 data86,49,46,48,00,65,110,100,114,101,39,32,83,99,104,109,97,110,100,116
  99.